﻿Public Class Divider

    Private Sub Divider_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Divider_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        With e.Graphics
            .DrawLine(Pens.Black, 0, Me.Height \ 2, Me.Width, Me.Height \ 2)
        End With
    End Sub
End Class
